Private Sub Worksheet_Change(ByVal Target As Range)

 

Dim Sledovana_oblast As Range

 

Set Sledovana_oblast = Range("A1,A3,A5:A10") 'kontrolované buňky ve sloupci A

 If Target.Cells.Count > 1 Then Exit Sub 'proti hromadnému vkládání dat (do více buněk současně)

 If Not Intersect(Target, Sledovana_oblast) Is Nothing Then

 With Target(1, 2) 'první řádek slupce B

 .Value = Now

 .EntireColumn.AutoFit 'automatická šíře sloupce

 End With

 End If

 

End Sub